home *** CD-ROM | disk | FTP | other *** search
/ SGI Developer Toolbox 6.1 / SGI Developer Toolbox 6.1 - Disc 4.iso / src / demos / GL / atlantis / dolphin.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-08-02  |  50.5 KB  |  1,969 lines
  1. /*
  2.  * Copyright 1992, 1993, 1994, Silicon Graphics, Inc.
  3.  * All Rights Reserved.
  4.  *
  5.  * This is UNPUBLISHED PROPRIETARY SOURCE CODE of Silicon Graphics, Inc.;
  6.  * the contents of this file may not be disclosed to third parties, copied or
  7.  * duplicated in any form, in whole or in part, without the prior written
  8.  * permission of Silicon Graphics, Inc.
  9.  *
  10.  * RESTRICTED RIGHTS LEGEND:
  11.  * Use, duplication or disclosure by the Government is subject to restrictions
  12.  * as set forth in subdivision (c)(1)(ii) of the Rights in Technical Data
  13.  * and Computer Software clause at DFARS 252.227-7013, and/or in similar or
  14.  * successor clauses in the FAR, DOD or NASA FAR Supplement. Unpublished -
  15.  * rights reserved under the Copyright Laws of the United States.
  16.  */
  17. #include <gl.h>
  18. #include <math.h>
  19. #include "atlantis.h"
  20. #include "fish.h"
  21.  
  22. /* dolphin */
  23. static float N001[3] = { -0.005937 ,-0.101998 ,-0.994767};
  24. static float N002[3] = { 0.936780 ,-0.200803 ,0.286569};
  25. static float N003[3] = { -0.233062 ,0.972058 ,0.028007};
  26. static float N004[3] = { 0.000000 ,1.000000 ,0.000000};
  27. static float N005[3] = { 0.898117 ,0.360171 ,0.252315};
  28. static float N006[3] = { -0.915437 ,0.348456 ,0.201378};
  29. static float N007[3] = { 0.602263 ,-0.777527 ,0.180920};
  30. static float N008[3] = { -0.906912 ,-0.412015 ,0.088061};
  31. static float N009[3] = { -0.015623 ,0.999878 ,0.000000};
  32. static float N010[3] = { 0.000000 ,-0.992278 ,0.124035};
  33. static float N011[3] = { 0.000000 ,-0.936329 ,-0.351123};
  34. static float N012[3] = { 0.884408 ,-0.429417 ,-0.182821};
  35. static float N013[3] = { 0.921121 ,0.311084 ,-0.234016};
  36. static float N014[3] = { 0.382635 ,0.877882 ,-0.287948};
  37. static float N015[3] = { -0.380046 ,0.888166 ,-0.258316};
  38. static float N016[3] = { -0.891515 ,0.392238 ,-0.226607};
  39. static float N017[3] = { -0.901419 ,-0.382002 ,-0.203763};
  40. static float N018[3] = { -0.367225 ,-0.911091 ,-0.187243};
  41. static float N019[3] = { 0.339539 ,-0.924846 ,-0.171388};
  42. static float N020[3] = { 0.914706 ,-0.378617 ,-0.141290};
  43. static float N021[3] = { 0.950662 ,0.262713 ,-0.164994};
  44. static float N022[3] = { 0.546359 ,0.801460 ,-0.243218};
  45. static float N023[3] = { -0.315796 ,0.917068 ,-0.243431};
  46. static float N024[3] = { -0.825687 ,0.532277 ,-0.186875};
  47. static float N025[3] = { -0.974763 ,-0.155232 ,-0.160435};
  48. static float N026[3] = { -0.560596 ,-0.816658 ,-0.137119};
  49. static float N027[3] = { 0.380210 ,-0.910817 ,-0.160786};
  50. static float N028[3] = { 0.923772 ,-0.358322 ,-0.135093};
  51. static float N029[3] = { 0.951202 ,0.275053 ,-0.139859};
  52. static float N030[3] = { 0.686099 ,0.702548 ,-0.188932};
  53. static float N031[3] = { -0.521865 ,0.826719 ,-0.210220};
  54. static float N032[3] = { -0.923820 ,0.346739 ,-0.162258};
  55. static float N033[3] = { -0.902095 ,-0.409995 ,-0.134646};
  56. static float N034[3] = { -0.509115 ,-0.848498 ,-0.144404};
  57. static float N035[3] = { 0.456469 ,-0.880293 ,-0.129305};
  58. static float N036[3] = { 0.873401 ,-0.475489 ,-0.105266};
  59. static float N037[3] = { 0.970825 ,0.179861 ,-0.158584};
  60. static float N038[3] = { 0.675609 ,0.714187 ,-0.183004};
  61. static float N039[3] = { -0.523574 ,0.830212 ,-0.191360};
  62. static float N040[3] = { -0.958895 ,0.230808 ,-0.165071};
  63. static float N041[3] = { -0.918285 ,-0.376803 ,-0.121542};
  64. static float N042[3] = { -0.622467 ,-0.774167 ,-0.114888};
  65. static float N043[3] = { 0.404497 ,-0.908807 ,-0.102231};
  66. static float N044[3] = { 0.930538 ,-0.365155 ,-0.027588};
  67. static float N045[3] = { 0.921920 ,0.374157 ,-0.100345};
  68. static float N046[3] = { 0.507346 ,0.860739 ,0.041562};
  69. static float N047[3] = { -0.394646 ,0.918815 ,-0.005730};
  70. static float N048[3] = { -0.925411 ,0.373024 ,-0.066837};
  71. static float N049[3] = { -0.945337 ,-0.322309 ,-0.049551};
  72. static float N050[3] = { -0.660437 ,-0.750557 ,-0.022072};
  73. static float N051[3] = { 0.488835 ,-0.871950 ,-0.027261};
  74. static float N052[3] = { 0.902599 ,-0.421397 ,0.087969};
  75. static float N053[3] = { 0.938636 ,0.322606 ,0.122020};
  76. static float N054[3] = { 0.484605 ,0.871078 ,0.079878};
  77. static float N055[3] = { -0.353607 ,0.931559 ,0.084619};
  78. static float N056[3] = { -0.867759 ,0.478564 ,0.134054};
  79. static float N057[3] = { -0.951583 ,-0.296030 ,0.082794};
  80. static float N058[3] = { -0.672355 ,-0.730209 ,0.121384};
  81. static float N059[3] = { 0.528336 ,-0.842452 ,0.105525};
  82. static float N060[3] = { 0.786913 ,-0.564760 ,0.248627};
  83. static float N061[3] = { 0.000000 ,1.000000 ,0.000000};
  84. static float N062[3] = { 0.622098 ,0.765230 ,0.165584};
  85. static float N063[3] = { -0.631711 ,0.767816 ,0.106773};
  86. static float N064[3] = { -0.687886 ,0.606351 ,0.398938};
  87. static float N065[3] = { -0.946327 ,-0.281623 ,0.158598};
  88. static float N066[3] = { -0.509549 ,-0.860437 ,0.002776};
  89. static float N067[3] = { 0.462594 ,-0.876692 ,0.131977};
  90. static float N068[3] = { 0.000000 ,-0.992278 ,0.124035};
  91. static float N069[3] = { 0.000000 ,-0.970143 ,-0.242536};
  92. static float N070[3] = { 0.015502 ,0.992159 ,-0.124020};
  93. static float N071[3] = { 0.000000 ,1.000000 ,0.000000};
  94. static float N072[3] = { 0.000000 ,1.000000 ,0.000000};
  95. static float N073[3] = { 0.000000 ,1.000000 ,0.000000};
  96. static float N074[3] = { 0.000000 ,-1.000000 ,0.000000};
  97. static float N075[3] = { -0.242536 ,0.000000 ,-0.970143};
  98. static float N076[3] = { -0.010336 ,-0.992225 ,-0.124028};
  99. static float N077[3] = { -0.880770 ,0.461448 ,0.106351};
  100. static float N078[3] = { -0.880770 ,0.461448 ,0.106351};
  101. static float N079[3] = { -0.880770 ,0.461448 ,0.106351};
  102. static float N080[3] = { -0.880770 ,0.461448 ,0.106351};
  103. static float N081[3] = { -0.571197 ,0.816173 ,0.087152};
  104. static float N082[3] = { -0.880770 ,0.461448 ,0.106351};
  105. static float N083[3] = { -0.571197 ,0.816173 ,0.087152};
  106. static float N084[3] = { -0.571197 ,0.816173 ,0.087152};
  107. static float N085[3] = { -0.880770 ,0.461448 ,0.106351};
  108. static float N086[3] = { -0.571197 ,0.816173 ,0.087152};
  109. static float N087[3] = { -0.880770 ,0.461448 ,0.106351};
  110. static float N088[3] = { -0.880770 ,0.461448 ,0.106351};
  111. static float N089[3] = { -0.880770 ,0.461448 ,0.106351};
  112. static float N090[3] = { -0.880770 ,0.461448 ,0.106351};
  113. static float N091[3] = { 0.000000 ,1.000000 ,0.000000};
  114. static float N092[3] = { 0.000000 ,1.000000 ,0.000000};
  115. static float N093[3] = { 0.000000 ,1.000000 ,0.000000};
  116. static float N094[3] = { 1.000000 ,0.000000 ,0.000000};
  117. static float N095[3] = { -1.000000 ,0.000000 ,0.000000};
  118. static float N096[3] = { 0.000000 ,1.000000 ,0.000000};
  119. static float N097[3] = { -0.697296 ,0.702881 ,0.140491};
  120. static float N098[3] = { 0.918864 ,0.340821 ,0.198819};
  121. static float N099[3] = { -0.932737 ,0.201195 ,0.299202};
  122. static float N100[3] = { 0.029517 ,0.981679 ,0.188244};
  123. static float N101[3] = { 0.000000 ,1.000000 ,0.000000};
  124. static float N102[3] = { 0.813521 ,-0.204936 ,0.544229};
  125. static float N103[3] = { 0.000000 ,1.000000 ,0.000000};
  126. static float N104[3] = { 0.000000 ,1.000000 ,0.000000};
  127. static float N105[3] = { 0.000000 ,1.000000 ,0.000000};
  128. static float N106[3] = { 0.000000 ,1.000000 ,0.000000};
  129. static float N107[3] = { 0.000000 ,1.000000 ,0.000000};
  130. static float N108[3] = { 0.000000 ,1.000000 ,0.000000};
  131. static float N109[3] = { 0.000000 ,1.000000 ,0.000000};
  132. static float N110[3] = { -0.781480 ,-0.384779 ,0.491155};
  133. static float N111[3] = { -0.722243 ,0.384927 ,0.574627};
  134. static float N112[3] = { -0.752278 ,0.502679 ,0.425901};
  135. static float N113[3] = { 0.547257 ,0.367910 ,0.751766};
  136. static float N114[3] = { 0.725949 ,-0.232568 ,0.647233};
  137. static float N115[3] = { -0.747182 ,-0.660786 ,0.071280};
  138. static float N116[3] = { 0.931519 ,0.200748 ,0.303270};
  139. static float N117[3] = { -0.828928 ,0.313757 ,0.463071};
  140. static float N118[3] = { 0.902554 ,-0.370967 ,0.218587};
  141. static float N119[3] = { -0.879257 ,-0.441851 ,0.177973};
  142. static float N120[3] = { 0.642327 ,0.611901 ,0.461512};
  143. static float N121[3] = { 0.964817 ,-0.202322 ,0.167910};
  144. static float N122[3] = { 0.000000 ,1.000000 ,0.000000};
  145. static float N123[3] = { -0.980734 ,0.041447 ,0.190900};
  146. static float N124[3] = { -0.980734 ,0.041447 ,0.190900};
  147. static float N125[3] = { -0.980734 ,0.041447 ,0.190900};
  148. static float N126[3] = { 0.000000 ,1.000000 ,0.000000};
  149. static float N127[3] = { 0.000000 ,1.000000 ,0.000000};
  150. static float N128[3] = { 0.000000 ,1.000000 ,0.000000};
  151. static float N129[3] = { 0.963250 ,0.004839 ,0.268565};
  152. static float N130[3] = { 0.963250 ,0.004839 ,0.268565};
  153. static float N131[3] = { 0.963250 ,0.004839 ,0.268565};
  154. static float N132[3] = { 0.000000 ,1.000000 ,0.000000};
  155. static float N133[3] = { 0.000000 ,1.000000 ,0.000000};
  156. static float N134[3] = { 0.000000 ,1.000000 ,0.000000};
  157. static float P001[3] = {           5.68,        -300.95,        1324.70 };
  158. static float P002[3] = {         338.69,        -219.63,        9677.03 };
  159. static float P003[3] = {          12.18,         474.59,        9138.14 };
  160. static float P004[3] = {          -7.49,        -388.91,       10896.74 };
  161. static float P005[3] = {         487.51,         198.05,        9350.78 };
  162. static float P006[3] = {        -457.61,          68.74,        9427.85 };
  163. static float P007[3] = {         156.52,        -266.72,       10311.68 };
  164. static float P008[3] = {        -185.56,        -266.51,       10310.47 };
  165. static float P009[3] = {         124.39,        -261.46,        1942.34 };
  166. static float P010[3] = {        -130.05,        -261.46,        1946.03 };
  167. static float P011[3] = {         141.07,        -320.11,        1239.38 };
  168. static float P012[3] = {         156.48,        -360.12,        2073.41 };
  169. static float P013[3] = {         162.00,        -175.88,        2064.44 };
  170. static float P014[3] = {          88.16,         -87.72,        2064.02 };
  171. static float P015[3] = {         -65.21,         -96.13,        2064.02 };
  172. static float P016[3] = {        -156.48,        -180.96,        2064.44 };
  173. static float P017[3] = {        -162.00,        -368.93,        2082.39 };
  174. static float P018[3] = {         -88.16,        -439.22,        2082.39 };
  175. static float P019[3] = {          65.21,        -440.32,        2083.39 };
  176. static float P020[3] = {         246.87,        -356.02,        2576.95 };
  177. static float P021[3] = {         253.17,        -111.15,        2567.15 };
  178. static float P022[3] = {         132.34,          51.41,        2559.84 };
  179. static float P023[3] = {         -97.88,          40.44,        2567.15 };
  180. static float P024[3] = {        -222.97,        -117.49,        2567.15 };
  181. static float P025[3] = {        -252.22,        -371.53,        2569.92 };
  182. static float P026[3] = {        -108.44,        -518.19,        2586.75 };
  183. static float P027[3] = {          97.88,        -524.79,        2586.75 };
  184. static float P028[3] = {         370.03,        -421.19,        3419.70 };
  185. static float P029[3] = {         351.15,         -16.98,        3423.17 };
  186. static float P030[3] = {         200.66,         248.46,        3430.37 };
  187. static float P031[3] = {        -148.42,         235.02,        3417.91 };
  188. static float P032[3] = {        -360.21,         -30.27,        3416.84 };
  189. static float P033[3] = {        -357.90,        -414.89,        3407.04 };
  190. static float P034[3] = {        -148.88,        -631.35,        3409.90 };
  191. static float P035[3] = {         156.38,        -632.59,        3419.70 };
  192. static float P036[3] = {         462.61,        -469.21,        4431.51 };
  193. static float P037[3] = {         466.60,         102.25,        4434.98 };
  194. static float P038[3] = {         243.05,         474.34,        4562.02 };
  195. static float P039[3] = {        -191.23,         474.40,        4554.42 };
  196. static float P040[3] = {        -476.12,         111.05,        4451.11 };
  197. static float P041[3] = {        -473.36,        -470.74,        4444.78 };
  198. static float P042[3] = {        -266.95,        -748.41,        4447.78 };
  199. static float P043[3] = {         211.14,        -749.91,        4429.73 };
  200. static float P044[3] = {         680.57,        -370.27,        5943.46 };
  201. static float P045[3] = {         834.01,         363.09,        6360.63 };
  202. static float P046[3] = {         371.29,         804.51,        6486.26 };
  203. static float P047[3] = {        -291.43,         797.22,        6494.28 };
  204. static float P048[3] = {        -784.13,         370.75,        6378.01 };
  205. static float P049[3] = {        -743.29,        -325.82,        5943.46 };
  206. static float P050[3] = {        -383.24,        -804.77,        5943.46 };
  207. static float P051[3] = {         283.47,        -846.09,        5943.46 };
  208. static float iP001[3] = {           5.68,        -300.95,        1324.70 };
  209. static float iP002[3] = {         338.69,        -219.63,        9677.03 };
  210. static float iP003[3] = {          12.18,         624.93,        8956.39 };
  211. static float iP004[3] = {          -7.49,        -388.91,       10896.74 };
  212. static float iP005[3] = {         487.51,         198.05,        9350.78 };
  213. static float iP006[3] = {        -457.61,         199.04,        9353.01 };
  214. static float iP007[3] = {         156.52,        -266.72,       10311.68 };
  215. static float iP008[3] = {        -185.56,        -266.51,       10310.47 };
  216. static float iP009[3] = {         124.39,        -261.46,        1942.34 };
  217. static float iP010[3] = {        -130.05,        -261.46,        1946.03 };
  218. static float iP011[3] = {         141.07,        -320.11,        1239.38 };
  219. static float iP012[3] = {         156.48,        -360.12,        2073.41 };
  220. static float iP013[3] = {         162.00,        -175.88,        2064.44 };
  221. static float iP014[3] = {          88.16,         -87.72,        2064.02 };
  222. static float iP015[3] = {         -65.21,         -96.13,        2064.02 };
  223. static float iP016[3] = {        -156.48,        -180.96,        2064.44 };
  224. static float iP017[3] = {        -162.00,        -368.93,        2082.39 };
  225. static float iP018[3] = {         -88.16,        -439.22,        2082.39 };
  226. static float iP019[3] = {          65.21,        -440.32,        2083.39 };
  227. static float iP020[3] = {         246.87,        -356.02,        2576.95 };
  228. static float iP021[3] = {         253.17,        -111.15,        2567.15 };
  229. static float iP022[3] = {         132.34,          51.41,        2559.84 };
  230. static float iP023[3] = {         -97.88,          40.44,        2567.15 };
  231. static float iP024[3] = {        -222.97,        -117.49,        2567.15 };
  232. static float iP025[3] = {        -252.22,        -371.53,        2569.92 };
  233. static float iP026[3] = {        -108.44,        -518.19,        2586.75 };
  234. static float iP027[3] = {          97.88,        -524.79,        2586.75 };
  235. static float iP028[3] = {         370.03,        -421.19,        3419.70 };
  236. static float iP029[3] = {         351.15,         -16.98,        3423.17 };
  237. static float iP030[3] = {         200.66,         248.46,        3430.37 };
  238. static float iP031[3] = {        -148.42,         235.02,        3417.91 };
  239. static float iP032[3] = {        -360.21,         -30.27,        3416.84 };
  240. static float iP033[3] = {        -357.90,        -414.89,        3407.04 };
  241. static float iP034[3] = {        -148.88,        -631.35,        3409.90 };
  242. static float iP035[3] = {         156.38,        -632.59,        3419.70 };
  243. static float iP036[3] = {         462.61,        -469.21,        4431.51 };
  244. static float iP037[3] = {         466.60,         102.25,        4434.98 };
  245. static float iP038[3] = {         243.05,         474.34,        4562.02 };
  246. static float iP039[3] = {        -191.23,         474.40,        4554.42 };
  247. static float iP040[3] = {        -476.12,         111.05,        4451.11 };
  248. static float iP041[3] = {        -473.36,        -470.74,        4444.78 };
  249. static float iP042[3] = {        -266.95,        -748.41,        4447.78 };
  250. static float iP043[3] = {         211.14,        -749.91,        4429.73 };
  251. static float iP044[3] = {         680.57,        -370.27,        5943.46 };
  252. static float iP045[3] = {         834.01,         363.09,        6360.63 };
  253. static float iP046[3] = {         371.29,         804.51,        6486.26 };
  254. static float iP047[3] = {        -291.43,         797.22,        6494.28 };
  255. static float iP048[3] = {        -784.13,         370.75,        6378.01 };
  256. static float iP049[3] = {        -743.29,        -325.82,        5943.46 };
  257. static float iP050[3] = {        -383.24,        -804.77,        5943.46 };
  258. static float iP051[3] = {         283.47,        -846.09,        5943.46 };
  259. static float P052[3] = {         599.09,        -300.15,        7894.03 };
  260. static float P053[3] = {         735.48,         306.26,        7911.92 };
  261. static float P054[3] = {         246.22,         558.53,        8460.50 };
  262. static float P055[3] = {        -230.41,         559.84,        8473.23 };
  263. static float P056[3] = {        -698.66,         320.83,        7902.59 };
  264. static float P057[3] = {        -643.29,        -299.16,        7902.59 };
  265. static float P058[3] = {        -341.47,        -719.30,        7902.59 };
  266. static float P059[3] = {         252.57,        -756.12,        7902.59 };
  267. static float P060[3] = {         458.39,        -265.31,        9355.44 };
  268. static float P061[3] = {         433.38,        -161.90,        9503.03 };
  269. static float P062[3] = {         224.04,         338.75,        9450.30 };
  270. static float P063[3] = {        -165.71,         341.04,        9462.35 };
  271. static float P064[3] = {        -298.11,         110.13,       10180.37 };
  272. static float P065[3] = {        -473.99,        -219.71,        9355.44 };
  273. static float P066[3] = {        -211.97,        -479.87,        9355.44 };
  274. static float P067[3] = {         192.86,        -491.45,        9348.73 };
  275.  
  276. static float P068[3] = {        -136.29,        -319.84,        1228.73 };
  277. static float P069[3] = {        1111.17,        -314.14,        1314.19 };
  278. static float P070[3] = {       -1167.34,        -321.61,        1319.45 };
  279. static float P071[3] = {        1404.86,        -306.66,        1235.45 };
  280. static float P072[3] = {       -1409.73,        -314.14,        1247.66 };
  281. static float P073[3] = {        1254.01,        -296.87,        1544.58 };
  282. static float P074[3] = {       -1262.09,        -291.70,        1504.26 };
  283. static float P075[3] = {         965.71,        -269.26,        1742.65 };
  284. static float P076[3] = {        -900.97,        -276.74,        1726.07 };
  285.  
  286. static float iP068[3] = {        -136.29,        -319.84,        1228.73 };
  287. static float iP069[3] = {        1111.17,        -314.14,        1314.19 };
  288. static float iP070[3] = {       -1167.34,        -321.61,        1319.45 };
  289. static float iP071[3] = {        1404.86,        -306.66,        1235.45 };
  290. static float iP072[3] = {       -1409.73,        -314.14,        1247.66 };
  291. static float iP073[3] = {        1254.01,        -296.87,        1544.58 };
  292. static float iP074[3] = {       -1262.09,        -291.70,        1504.26 };
  293. static float iP075[3] = {         965.71,        -269.26,        1742.65 };
  294. static float iP076[3] = {        -900.97,        -276.74,        1726.07 };
  295.  
  296. static float P077[3] = {        1058.00,        -448.81,        8194.66 };
  297. static float P078[3] = {       -1016.51,        -456.43,        8190.62 };
  298. static float P079[3] = {       -1515.96,        -676.45,        7754.93 };
  299. static float P080[3] = {        1856.75,        -830.34,        7296.56 };
  300. static float P081[3] = {        1472.16,        -497.38,        7399.68 };
  301. static float P082[3] = {       -1775.26,        -829.51,        7298.46 };
  302. static float P083[3] = {         911.09,        -252.51,        7510.99 };
  303. static float P084[3] = {       -1451.94,        -495.62,        7384.30 };
  304. static float P085[3] = {        1598.75,        -669.26,        7769.90 };
  305. static float P086[3] = {        -836.53,        -250.08,        7463.25 };
  306. static float P087[3] = {         722.87,        -158.18,        8006.41 };
  307. static float P088[3] = {        -688.86,        -162.28,        7993.89 };
  308. static float P089[3] = {        -626.92,        -185.30,        8364.98 };
  309. static float P090[3] = {         647.72,        -189.46,        8354.99 };
  310.  
  311. static float P091[3] = {           0.00,         835.01,        5555.62 };
  312. static float P092[3] = {           0.00,        1350.18,        5220.86 };
  313. static float P093[3] = {           0.00,        1422.94,        5285.27 };
  314. static float P094[3] = {           0.00,        1296.75,        5650.19 };
  315. static float P095[3] = {           0.00,         795.63,        6493.88 };
  316.  
  317. static float iP091[3] = {           0.00,         835.01,        5555.62 };
  318. static float iP092[3] = {           0.00,        1350.18,        5220.86 };
  319. static float iP093[3] = {           0.00,        1422.94,        5285.27 };
  320. static float iP094[3] = {           0.00,        1296.75,        5650.19 };
  321. static float iP095[3] = {           0.00,         795.63,        6493.88 };
  322.  
  323. static float P096[3] = {        -447.38,        -165.99,        9499.60 };
  324. static float P097[3] = {        -194.91,        -357.14,       10313.32 };
  325. static float P098[3] = {         135.35,        -357.66,       10307.94 };
  326. static float iP097[3] = {        -194.91,        -357.14,       10313.32 };
  327. static float iP098[3] = {         135.35,        -357.66,       10307.94 };
  328. static float P099[3] = {        -380.53,        -221.14,        9677.98 };
  329. static float P100[3] = {           0.00,         412.99,        9629.33 };
  330. static float P101[3] = {           5.70,         567.00,        7862.98 };
  331. static float P102[3] = {          59.51,        -412.55,       10677.58 };
  332. static float iP102[3] = {          59.51,        -412.55,       10677.58 };
  333. static float P103[3] = {           6.50,         484.74,        9009.94 };
  334. static float P104[3] = {          -9.86,         567.62,        7858.65 };
  335. static float P105[3] = {         -41.86,         476.51,        9078.17 };
  336. static float P106[3] = {          22.75,         568.13,        7782.83 };
  337. static float P107[3] = {          58.93,         568.42,        7775.94 };
  338. static float P108[3] = {          49.20,         476.83,        9078.24 };
  339. static float P109[3] = {          99.21,         566.00,        7858.65 };
  340. static float P110[3] = {        -187.62,        -410.04,       10674.12 };
  341. static float iP110[3] = {        -187.62,        -410.04,       10674.12 };
  342. static float P111[3] = {        -184.25,        -318.70,       10723.88 };
  343. static float iP111[3] = {        -184.25,        -318.70,       10723.88 };
  344. static float P112[3] = {        -179.61,        -142.81,       10670.26 };
  345. static float P113[3] = {          57.43,        -147.94,       10675.26 };
  346. static float P114[3] = {          54.06,        -218.90,       10712.44 };
  347. static float P115[3] = {        -186.35,        -212.09,       10713.76 };
  348. static float P116[3] = {         205.90,         -84.61,       10275.97 };
  349. static float P117[3] = {        -230.96,         -83.26,       10280.09 };
  350. static float iP118[3] = {         216.78,        -509.17,       10098.94 };
  351. static float iP119[3] = {        -313.21,        -510.79,       10102.62 };
  352. static float P118[3] = {         216.78,        -509.17,       10098.94 };
  353. static float P119[3] = {        -313.21,        -510.79,       10102.62 };
  354. static float P120[3] = {         217.95,          96.34,       10161.62 };
  355. static float P121[3] = {          71.99,        -319.74,       10717.70 };
  356. static float iP121[3] = {          71.99,        -319.74,       10717.70 };
  357. static float P122[3] = {           0.00,         602.74,        5375.84 };
  358. static float iP122[3] = {           0.00,         602.74,        5375.84 };
  359. static float P123[3] = {        -448.94,        -203.14,        9499.60 };
  360. static float P124[3] = {        -442.64,        -185.20,        9528.07 };
  361. static float P125[3] = {        -441.07,        -148.05,        9528.07 };
  362. static float P126[3] = {        -443.43,        -128.84,        9499.60 };
  363. static float P127[3] = {        -456.87,        -146.78,        9466.67 };
  364. static float P128[3] = {        -453.68,        -183.93,        9466.67 };
  365. static float P129[3] = {         428.43,        -124.08,        9503.03 };
  366. static float P130[3] = {         419.73,        -142.14,        9534.56 };
  367. static float P131[3] = {         419.92,        -179.96,        9534.56 };
  368. static float P132[3] = {         431.20,        -199.73,        9505.26 };
  369. static float P133[3] = {         442.28,        -181.67,        9475.96 };
  370. static float P134[3] = {         442.08,        -143.84,        9475.96 };
  371.  
  372. dolphin001()
  373. {
  374.     n3f(N071);
  375.     bgnpolygon();
  376.     v3f( P001);
  377.     v3f( P068);
  378.     v3f( P010);
  379.     endpolygon();
  380.     bgnpolygon();
  381.     v3f( P068);
  382.     v3f( P076);
  383.     v3f( P010);
  384.     endpolygon();
  385.     bgnpolygon();
  386.     v3f( P068);
  387.     v3f( P070);
  388.     v3f( P076);
  389.     endpolygon();
  390.     bgnpolygon();
  391.     v3f( P076);
  392.     v3f( P070);
  393.     v3f( P074);
  394.     endpolygon();
  395.     bgnpolygon();
  396.     v3f( P070);
  397.     v3f( P072);
  398.     v3f( P074);
  399.     endpolygon();
  400.     n3f(N119);
  401.     bgnpolygon();
  402.     v3f( P072);
  403.     v3f( P070);
  404.     v3f( P074);
  405.     endpolygon();
  406.     bgnpolygon();
  407.     v3f( P074);
  408.     v3f( P070);
  409.     v3f( P076);
  410.     endpolygon();
  411.     bgnpolygon();
  412.     v3f( P070);
  413.     v3f( P068);
  414.     v3f( P076);
  415.     endpolygon();
  416.     bgnpolygon();
  417.     v3f( P076);
  418.     v3f( P068);
  419.     v3f( P010);
  420.     endpolygon();
  421.     bgnpolygon();
  422.     v3f( P068);
  423.     v3f( P001);
  424.     v3f( P010);
  425.     endpolygon();
  426. }
  427.  
  428. dolphin002()
  429. {
  430.     n3f(N071);
  431.     bgnpolygon();
  432.     v3f( P011);
  433.     v3f( P001);
  434.     v3f( P009);
  435.     endpolygon();
  436.     bgnpolygon();
  437.     v3f( P075);
  438.     v3f( P011);
  439.     v3f( P009);
  440.     endpolygon();
  441.     bgnpolygon();
  442.     v3f( P069);
  443.     v3f( P011);
  444.     v3f( P075);
  445.     endpolygon();
  446.     bgnpolygon();
  447.     v3f( P069);
  448.     v3f( P075);
  449.     v3f( P073);
  450.     endpolygon();
  451.     bgnpolygon();
  452.     v3f( P071);
  453.     v3f( P069);
  454.     v3f( P073);
  455.     endpolygon();
  456.     n3f(N119);
  457.     bgnpolygon();
  458.     v3f( P001);
  459.     v3f( P011);
  460.     v3f( P009);
  461.     endpolygon();
  462.     bgnpolygon();
  463.     v3f( P009);
  464.     v3f( P011);
  465.     v3f( P075);
  466.     endpolygon();
  467.     bgnpolygon();
  468.     v3f( P011);
  469.     v3f( P069);
  470.     v3f( P075);
  471.     endpolygon();
  472.     bgnpolygon();
  473.     v3f( P069);
  474.     v3f( P073);
  475.     v3f( P075);
  476.     endpolygon();
  477.     bgnpolygon();
  478.     v3f( P069);
  479.     v3f( P071);
  480.     v3f( P073);
  481.     endpolygon();
  482. }
  483.  
  484. dolphin003()
  485. {
  486.     bgnpolygon();
  487.     n3f( N018);
  488.     v3f( P018);
  489.     n3f( N001);
  490.     v3f( P001);
  491.     n3f( N019);
  492.     v3f( P019);
  493.     endpolygon();
  494.     bgnpolygon();
  495.     n3f( N019);
  496.     v3f( P019);
  497.     n3f( N001);
  498.     v3f( P001);
  499.     n3f( N012);
  500.     v3f( P012);
  501.     endpolygon();
  502.     bgnpolygon();
  503.     n3f( N017);
  504.     v3f( P017);
  505.     n3f( N001);
  506.     v3f( P001);
  507.     n3f( N018);
  508.     v3f( P018);
  509.     endpolygon();
  510.     bgnpolygon();
  511.     n3f( N001);
  512.     v3f( P001);
  513.     n3f( N017);
  514.     v3f( P017);
  515.     n3f( N016);
  516.     v3f( P016);
  517.     endpolygon();
  518.     bgnpolygon();
  519.     n3f( N001);
  520.     v3f( P001);
  521.     n3f( N013);
  522.     v3f( P013);
  523.     n3f( N012);
  524.     v3f( P012);
  525.     endpolygon();
  526.     bgnpolygon();
  527.     n3f( N001);
  528.     v3f( P001);
  529.     n3f( N016);
  530.     v3f( P016);
  531.     n3f( N015);
  532.     v3f( P015);
  533.     endpolygon();
  534.     bgnpolygon();
  535.     n3f( N001);
  536.     v3f( P001);
  537.     n3f( N014);
  538.     v3f( P014);
  539.     n3f( N013);
  540.     v3f( P013);
  541.     endpolygon();
  542.     bgnpolygon();
  543.     n3f( N001);
  544.     v3f( P001);
  545.     n3f( N015);
  546.     v3f( P015);
  547.     n3f( N014);
  548.     v3f( P014);
  549.     endpolygon();
  550. }
  551.  
  552. dolphin004()
  553. {
  554.     bgnpolygon();
  555.     n3f( N014);
  556.     v3f( P014);
  557.     n3f( N015);
  558.     v3f( P015);
  559.     n3f( N023);
  560.     v3f( P023);
  561.     n3f( N022);
  562.     v3f( P022);
  563.     endpolygon();
  564.     bgnpolygon();
  565.     n3f( N015);
  566.     v3f( P015);
  567.     n3f( N016);
  568.     v3f( P016);
  569.     n3f( N024);
  570.     v3f( P024);
  571.     n3f( N023);
  572.     v3f( P023);
  573.     endpolygon();
  574.     bgnpolygon();
  575.     n3f( N016);
  576.     v3f( P016);
  577.     n3f( N017);
  578.     v3f( P017);
  579.     n3f( N025);
  580.     v3f( P025);
  581.     n3f( N024);
  582.     v3f( P024);
  583.     endpolygon();
  584.     bgnpolygon();
  585.     n3f( N017);
  586.     v3f( P017);
  587.     n3f( N018);
  588.     v3f( P018);
  589.     n3f( N026);
  590.     v3f( P026);
  591.     n3f( N025);
  592.     v3f( P025);
  593.     endpolygon();
  594.     bgnpolygon();
  595.     n3f( N013);
  596.     v3f( P013);
  597.     n3f( N014);
  598.     v3f( P014);
  599.     n3f( N022);
  600.     v3f( P022);
  601.     n3f( N021);
  602.     v3f( P021);
  603.     endpolygon();
  604.     bgnpolygon();
  605.     n3f( N012);
  606.     v3f( P012);
  607.     n3f( N013);
  608.     v3f( P013);
  609.     n3f( N021);
  610.     v3f( P021);
  611.     n3f( N020);
  612.     v3f( P020);
  613.     endpolygon();
  614.     bgnpolygon();
  615.     n3f( N018);
  616.     v3f( P018);
  617.     n3f( N019);
  618.     v3f( P019);
  619.     n3f( N027);
  620.     v3f( P027);
  621.     n3f( N026);
  622.     v3f( P026);
  623.     endpolygon();
  624.     bgnpolygon();
  625.     n3f( N019);
  626.     v3f( P019);
  627.     n3f( N012);
  628.     v3f( P012);
  629.     n3f( N020);
  630.     v3f( P020);
  631.     n3f( N027);
  632.     v3f( P027);
  633.     endpolygon();
  634. }
  635.  
  636. dolphin005()
  637. {
  638.     bgnpolygon();
  639.     n3f( N022);
  640.     v3f( P022);
  641.     n3f( N023);
  642.     v3f( P023);
  643.     n3f( N031);
  644.     v3f( P031);
  645.     n3f( N030);
  646.     v3f( P030);
  647.     endpolygon();
  648.     bgnpolygon();
  649.     n3f( N021);
  650.     v3f( P021);
  651.     n3f( N022);
  652.     v3f( P022);
  653.     n3f( N030);
  654.     v3f( P030);
  655.     endpolygon();
  656.     bgnpolygon();
  657.     n3f( N021);
  658.     v3f( P021);
  659.     n3f( N030);
  660.     v3f( P030);
  661.     n3f( N029);
  662.     v3f( P029);
  663.     endpolygon();
  664.     bgnpolygon();
  665.     n3f( N023);
  666.     v3f( P023);
  667.     n3f( N024);
  668.     v3f( P024);
  669.     n3f( N031);
  670.     v3f( P031);
  671.     endpolygon();
  672.     bgnpolygon();
  673.     n3f( N024);
  674.     v3f( P024);
  675.     n3f( N032);
  676.     v3f( P032);
  677.     n3f( N031);
  678.     v3f( P031);
  679.     endpolygon();
  680.     bgnpolygon();
  681.     n3f( N024);
  682.     v3f( P024);
  683.     n3f( N025);
  684.     v3f( P025);
  685.     n3f( N032);
  686.     v3f( P032);
  687.     endpolygon();
  688.     bgnpolygon();
  689.     n3f( N025);
  690.     v3f( P025);
  691.     n3f( N033);
  692.     v3f( P033);
  693.     n3f( N032);
  694.     v3f( P032);
  695.     endpolygon();
  696.     bgnpolygon();
  697.     n3f( N020);
  698.     v3f( P020);
  699.     n3f( N021);
  700.     v3f( P021);
  701.     n3f( N029);
  702.     v3f( P029);
  703.     endpolygon();
  704.     bgnpolygon();
  705.     n3f( N020);
  706.     v3f( P020);
  707.     n3f( N029);
  708.     v3f( P029);
  709.     n3f( N028);
  710.     v3f( P028);
  711.     endpolygon();
  712.     bgnpolygon();
  713.     n3f( N027);
  714.     v3f( P027);
  715.     n3f( N020);
  716.     v3f( P020);
  717.     n3f( N028);
  718.     v3f( P028);
  719.     endpolygon();
  720.     bgnpolygon();
  721.     n3f( N027);
  722.     v3f( P027);
  723.     n3f( N028);
  724.     v3f( P028);
  725.     n3f( N035);
  726.     v3f( P035);
  727.     endpolygon();
  728.     bgnpolygon();
  729.     n3f( N025);
  730.     v3f( P025);
  731.     n3f( N026);
  732.     v3f( P026);
  733.     n3f( N033);
  734.     v3f( P033);
  735.     endpolygon();
  736.     bgnpolygon();
  737.     n3f( N033);
  738.     v3f( P033);
  739.     n3f( N026);
  740.     v3f( P026);
  741.     n3f( N034);
  742.     v3f( P034);
  743.     endpolygon();
  744.     bgnpolygon();
  745.     n3f( N026);
  746.     v3f( P026);
  747.     n3f( N027);
  748.     v3f( P027);
  749.     n3f( N035);
  750.     v3f( P035);
  751.     n3f( N034);
  752.     v3f( P034);
  753.     endpolygon();
  754. }
  755.  
  756. dolphin006()
  757. {
  758.     bgnpolygon();
  759.     n3f( N092);
  760.     v3f( P092);
  761.     n3f( N093);
  762.     v3f( P093);
  763.     n3f( N094);
  764.     v3f( P094);
  765.     endpolygon();
  766.     bgnpolygon();
  767.     n3f( N093);
  768.     v3f( P093);
  769.     n3f( N092);
  770.     v3f( P092);
  771.     n3f( N094);
  772.     v3f( P094);
  773.     endpolygon();
  774.     bgnpolygon();
  775.     n3f( N092);
  776.     v3f( P092);
  777.     n3f( N091);
  778.     v3f( P091);
  779.     n3f( N095);
  780.     v3f( P095);
  781.     n3f( N094);
  782.     v3f( P094);
  783.     endpolygon();
  784.     bgnpolygon();
  785.     n3f( N091);
  786.     v3f( P091);
  787.     n3f( N092);
  788.     v3f( P092);
  789.     n3f( N094);
  790.     v3f( P094);
  791.     n3f( N095);
  792.     v3f( P095);
  793.     endpolygon();
  794.     bgnpolygon();
  795.     n3f( N122);
  796.     v3f( P122);
  797.     n3f( N095);
  798.     v3f( P095);
  799.     n3f( N091);
  800.     v3f( P091);
  801.     endpolygon();
  802.     bgnpolygon();
  803.     n3f( N122);
  804.     v3f( P122);
  805.     n3f( N091);
  806.     v3f( P091);
  807.     n3f( N095);
  808.     v3f( P095);
  809.     endpolygon();
  810. }
  811.  
  812. dolphin007()
  813. {
  814.     bgnpolygon();
  815.     n3f( N030);
  816.     v3f( P030);
  817.     n3f( N031);
  818.     v3f( P031);
  819.     n3f( N039);
  820.     v3f( P039);
  821.     n3f( N038);
  822.     v3f( P038);
  823.     endpolygon();
  824.     bgnpolygon();
  825.     n3f( N029);
  826.     v3f( P029);
  827.     n3f( N030);
  828.     v3f( P030);
  829.     n3f( N038);
  830.     v3f( P038);
  831.     endpolygon();
  832.     bgnpolygon();
  833.     n3f( N029);
  834.     v3f( P029);
  835.     n3f( N038);
  836.     v3f( P038);
  837.     n3f( N037);
  838.     v3f( P037);
  839.     endpolygon();
  840.     bgnpolygon();
  841.     n3f( N028);
  842.     v3f( P028);
  843.     n3f( N029);
  844.     v3f( P029);
  845.     n3f( N037);
  846.     v3f( P037);
  847.     endpolygon();
  848.     bgnpolygon();
  849.     n3f( N028);
  850.     v3f( P028);
  851.     n3f( N037);
  852.     v3f( P037);
  853.     n3f( N036);
  854.     v3f( P036);
  855.     endpolygon();
  856.     bgnpolygon();
  857.     n3f( N035);
  858.     v3f( P035);
  859.     n3f( N028);
  860.     v3f( P028);
  861.     n3f( N036);
  862.     v3f( P036);
  863.     endpolygon();
  864.     bgnpolygon();
  865.     n3f( N035);
  866.     v3f( P035);
  867.     n3f( N036);
  868.     v3f( P036);
  869.     n3f( N043);
  870.     v3f( P043);
  871.     endpolygon();
  872.     bgnpolygon();
  873.     n3f( N034);
  874.     v3f( P034);
  875.     n3f( N035);
  876.     v3f( P035);
  877.     n3f( N043);
  878.     v3f( P043);
  879.     n3f( N042);
  880.     v3f( P042);
  881.     endpolygon();
  882.     bgnpolygon();
  883.     n3f( N033);
  884.     v3f( P033);
  885.     n3f( N034);
  886.     v3f( P034);
  887.     n3f( N042);
  888.     v3f( P042);
  889.     endpolygon();
  890.     bgnpolygon();
  891.     n3f( N033);
  892.     v3f( P033);
  893.     n3f( N042);
  894.     v3f( P042);
  895.     n3f( N041);
  896.     v3f( P041);
  897.     endpolygon();
  898.     bgnpolygon();
  899.     n3f( N031);
  900.     v3f( P031);
  901.     n3f( N032);
  902.     v3f( P032);
  903.     n3f( N039);
  904.     v3f( P039);
  905.     endpolygon();
  906.     bgnpolygon();
  907.     n3f( N039);
  908.     v3f( P039);
  909.     n3f( N032);
  910.     v3f( P032);
  911.     n3f( N040);
  912.     v3f( P040);
  913.     endpolygon();
  914.     bgnpolygon();
  915.     n3f( N032);
  916.     v3f( P032);
  917.     n3f( N033);
  918.     v3f( P033);
  919.     n3f( N040);
  920.     v3f( P040);
  921.     endpolygon();
  922.     bgnpolygon();
  923.     n3f( N040);
  924.     v3f( P040);
  925.     n3f( N033);
  926.     v3f( P033);
  927.     n3f( N041);
  928.     v3f( P041);
  929.     endpolygon();
  930. }
  931.  
  932. dolphin008()
  933. {
  934.     bgnpolygon();
  935.     n3f( N042);
  936.     v3f( P042);
  937.     n3f( N043);
  938.     v3f( P043);
  939.     n3f( N051);
  940.     v3f( P051);
  941.     n3f( N050);
  942.     v3f( P050);
  943.     endpolygon();
  944.     bgnpolygon();
  945.     n3f( N043);
  946.     v3f( P043);
  947.     n3f( N036);
  948.     v3f( P036);
  949.     n3f( N051);
  950.     v3f( P051);
  951.     endpolygon();
  952.     bgnpolygon();
  953.     n3f( N051);
  954.     v3f( P051);
  955.     n3f( N036);
  956.     v3f( P036);
  957.     n3f( N044);
  958.     v3f( P044);
  959.     endpolygon();
  960.     bgnpolygon();
  961.     n3f( N041);
  962.     v3f( P041);
  963.     n3f( N042);
  964.     v3f( P042);
  965.     n3f( N050);
  966.     v3f( P050);
  967.     endpolygon();
  968.     bgnpolygon();
  969.     n3f( N041);
  970.     v3f( P041);
  971.     n3f( N050);
  972.     v3f( P050);
  973.     n3f( N049);
  974.     v3f( P049);
  975.     endpolygon();
  976.     bgnpolygon();
  977.     n3f( N036);
  978.     v3f( P036);
  979.     n3f( N037);
  980.     v3f( P037);
  981.     n3f( N044);
  982.     v3f( P044);
  983.     endpolygon();
  984.     bgnpolygon();
  985.     n3f( N044);
  986.     v3f( P044);
  987.     n3f( N037);
  988.     v3f( P037);
  989.     n3f( N045);
  990.     v3f( P045);
  991.     endpolygon();
  992.     bgnpolygon();
  993.     n3f( N040);
  994.     v3f( P040);
  995.     n3f( N041);
  996.     v3f( P041);
  997.     n3f( N049);
  998.     v3f( P049);
  999.     endpolygon();
  1000.     bgnpolygon();
  1001.     n3f( N040);
  1002.     v3f( P040);
  1003.     n3f( N049);
  1004.     v3f( P049);
  1005.     n3f( N048);
  1006.     v3f( P048);
  1007.     endpolygon();
  1008.     bgnpolygon();
  1009.     n3f( N039);
  1010.     v3f( P039);
  1011.     n3f( N040);
  1012.     v3f( P040);
  1013.     n3f( N048);
  1014.     v3f( P048);
  1015.     endpolygon();
  1016.     bgnpolygon();
  1017.     n3f( N039);
  1018.     v3f( P039);
  1019.     n3f( N048);
  1020.     v3f( P048);
  1021.     n3f( N047);
  1022.     v3f( P047);
  1023.     endpolygon();
  1024.     bgnpolygon();
  1025.     n3f( N037);
  1026.     v3f( P037);
  1027.     n3f( N038);
  1028.     v3f( P038);
  1029.     n3f( N045);
  1030.     v3f( P045);
  1031.     endpolygon();
  1032.     bgnpolygon();
  1033.     n3f( N038);
  1034.     v3f( P038);
  1035.     n3f( N046);
  1036.     v3f( P046);
  1037.     n3f( N045);
  1038.     v3f( P045);
  1039.     endpolygon();
  1040.     bgnpolygon();
  1041.     n3f( N038);
  1042.     v3f( P038);
  1043.     n3f( N039);
  1044.     v3f( P039);
  1045.     n3f( N047);
  1046.     v3f( P047);
  1047.     n3f( N046);
  1048.     v3f( P046);
  1049.     endpolygon();
  1050. }
  1051.  
  1052. dolphin009()
  1053. {
  1054.     bgnpolygon();
  1055.     n3f( N050);
  1056.     v3f( P050);
  1057.     n3f( N051);
  1058.     v3f( P051);
  1059.     n3f( N059);
  1060.     v3f( P059);
  1061.     n3f( N058);
  1062.     v3f( P058);
  1063.     endpolygon();
  1064.     bgnpolygon();
  1065.     n3f( N051);
  1066.     v3f( P051);
  1067.     n3f( N044);
  1068.     v3f( P044);
  1069.     n3f( N059);
  1070.     v3f( P059);
  1071.     endpolygon();
  1072.     bgnpolygon();
  1073.     n3f( N059);
  1074.     v3f( P059);
  1075.     n3f( N044);
  1076.     v3f( P044);
  1077.     n3f( N052);
  1078.     v3f( P052);
  1079.     endpolygon();
  1080.     bgnpolygon();
  1081.     n3f( N044);
  1082.     v3f( P044);
  1083.     n3f( N045);
  1084.     v3f( P045);
  1085.     n3f( N053);
  1086.     v3f( P053);
  1087.     endpolygon();
  1088.     bgnpolygon();
  1089.     n3f( N044);
  1090.     v3f( P044);
  1091.     n3f( N053);
  1092.     v3f( P053);
  1093.     n3f( N052);
  1094.     v3f( P052);
  1095.     endpolygon();
  1096.     bgnpolygon();
  1097.     n3f( N049);
  1098.     v3f( P049);
  1099.     n3f( N050);
  1100.     v3f( P050);
  1101.     n3f( N058);
  1102.     v3f( P058);
  1103.     endpolygon();
  1104.     bgnpolygon();
  1105.     n3f( N049);
  1106.     v3f( P049);
  1107.     n3f( N058);
  1108.     v3f( P058);
  1109.     n3f( N057);
  1110.     v3f( P057);
  1111.     endpolygon();
  1112.     bgnpolygon();
  1113.     n3f( N048);
  1114.     v3f( P048);
  1115.     n3f( N049);
  1116.     v3f( P049);
  1117.     n3f( N057);
  1118.     v3f( P057);
  1119.     endpolygon();
  1120.     bgnpolygon();
  1121.     n3f( N048);
  1122.     v3f( P048);
  1123.     n3f( N057);
  1124.     v3f( P057);
  1125.     n3f( N056);
  1126.     v3f( P056);
  1127.     endpolygon();
  1128.     bgnpolygon();
  1129.     n3f( N047);
  1130.     v3f( P047);
  1131.     n3f( N048);
  1132.     v3f( P048);
  1133.     n3f( N056);
  1134.     v3f( P056);
  1135.     endpolygon();
  1136.     bgnpolygon();
  1137.     n3f( N047);
  1138.     v3f( P047);
  1139.     n3f( N056);
  1140.     v3f( P056);
  1141.     n3f( N055);
  1142.     v3f( P055);
  1143.     endpolygon();
  1144.     bgnpolygon();
  1145.     n3f( N045);
  1146.     v3f( P045);
  1147.     n3f( N046);
  1148.     v3f( P046);
  1149.     n3f( N053);
  1150.     v3f( P053);
  1151.     endpolygon();
  1152.     bgnpolygon();
  1153.     n3f( N046);
  1154.     v3f( P046);
  1155.     n3f( N054);
  1156.     v3f( P054);
  1157.     n3f( N053);
  1158.     v3f( P053);
  1159.     endpolygon();
  1160.     bgnpolygon();
  1161.     n3f( N046);
  1162.     v3f( P046);
  1163.     n3f( N047);
  1164.     v3f( P047);
  1165.     n3f( N055);
  1166.     v3f( P055);
  1167.     n3f( N054);
  1168.     v3f( P054);
  1169.     endpolygon();
  1170. }
  1171.  
  1172. dolphin010()
  1173. {
  1174.     bgnpolygon();
  1175.     n3f( N080);
  1176.     v3f( P080);
  1177.     n3f( N081);
  1178.     v3f( P081);
  1179.     n3f( N085);
  1180.     v3f( P085);
  1181.     endpolygon();
  1182.     bgnpolygon();
  1183.     n3f( N081);
  1184.     v3f( P081);
  1185.     n3f( N083);
  1186.     v3f( P083);
  1187.     n3f( N085);
  1188.     v3f( P085);
  1189.     endpolygon();
  1190.     bgnpolygon();
  1191.     n3f( N085);
  1192.     v3f( P085);
  1193.     n3f( N083);
  1194.     v3f( P083);
  1195.     n3f( N077);
  1196.     v3f( P077);
  1197.     endpolygon();
  1198.     bgnpolygon();
  1199.     n3f( N083);
  1200.     v3f( P083);
  1201.     n3f( N087);
  1202.     v3f( P087);
  1203.     n3f( N077);
  1204.     v3f( P077);
  1205.     endpolygon();
  1206.     bgnpolygon();
  1207.     n3f( N077);
  1208.     v3f( P077);
  1209.     n3f( N087);
  1210.     v3f( P087);
  1211.     n3f( N090);
  1212.     v3f( P090);
  1213.     endpolygon();
  1214.     bgnpolygon();
  1215.     n3f( N081);
  1216.     v3f( P081);
  1217.     n3f( N080);
  1218.     v3f( P080);
  1219.     n3f( N085);
  1220.     v3f( P085);
  1221.     endpolygon();
  1222.     bgnpolygon();
  1223.     n3f( N083);
  1224.     v3f( P083);
  1225.     n3f( N081);
  1226.     v3f( P081);
  1227.     n3f( N085);
  1228.     v3f( P085);
  1229.     endpolygon();
  1230.     bgnpolygon();
  1231.     n3f( N083);
  1232.     v3f( P083);
  1233.     n3f( N085);
  1234.     v3f( P085);
  1235.     n3f( N077);
  1236.     v3f( P077);
  1237.     endpolygon();
  1238.     bgnpolygon();
  1239.     n3f( N087);
  1240.     v3f( P087);
  1241.     n3f( N083);
  1242.     v3f( P083);
  1243.     n3f( N077);
  1244.     v3f( P077);
  1245.     endpolygon();
  1246.     bgnpolygon();
  1247.     n3f( N087);
  1248.     v3f( P087);
  1249.     n3f( N077);
  1250.     v3f( P077);
  1251.     n3f( N090);
  1252.     v3f( P090);
  1253.     endpolygon();
  1254. }
  1255.  
  1256. dolphin011()
  1257. {
  1258.     bgnpolygon();
  1259.     n3f( N082);
  1260.     v3f( P082);
  1261.     n3f( N084);
  1262.     v3f( P084);
  1263.     n3f( N079);
  1264.     v3f( P079);
  1265.     endpolygon();
  1266.     bgnpolygon();
  1267.     n3f( N084);
  1268.     v3f( P084);
  1269.     n3f( N086);
  1270.     v3f( P086);
  1271.     n3f( N079);
  1272.     v3f( P079);
  1273.     endpolygon();
  1274.     bgnpolygon();
  1275.     n3f( N079);
  1276.     v3f( P079);
  1277.     n3f( N086);
  1278.     v3f( P086);
  1279.     n3f( N078);
  1280.     v3f( P078);
  1281.     endpolygon();
  1282.     bgnpolygon();
  1283.     n3f( N086);
  1284.     v3f( P086);
  1285.     n3f( N088);
  1286.     v3f( P088);
  1287.     n3f( N078);
  1288.     v3f( P078);
  1289.     endpolygon();
  1290.     bgnpolygon();
  1291.     n3f( N078);
  1292.     v3f( P078);
  1293.     n3f( N088);
  1294.     v3f( P088);
  1295.     n3f( N089);
  1296.     v3f( P089);
  1297.     endpolygon();
  1298.     bgnpolygon();
  1299.     n3f( N088);
  1300.     v3f( P088);
  1301.     n3f( N086);
  1302.     v3f( P086);
  1303.     n3f( N089);
  1304.     v3f( P089);
  1305.     endpolygon();
  1306.     bgnpolygon();
  1307.     n3f( N089);
  1308.     v3f( P089);
  1309.     n3f( N086);
  1310.     v3f( P086);
  1311.     n3f( N078);
  1312.     v3f( P078);
  1313.     endpolygon();
  1314.     bgnpolygon();
  1315.     n3f( N086);
  1316.     v3f( P086);
  1317.     n3f( N084);
  1318.     v3f( P084);
  1319.     n3f( N078);
  1320.     v3f( P078);
  1321.     endpolygon();
  1322.     bgnpolygon();
  1323.     n3f( N078);
  1324.     v3f( P078);
  1325.     n3f( N084);
  1326.     v3f( P084);
  1327.     n3f( N079);
  1328.     v3f( P079);
  1329.     endpolygon();
  1330.     bgnpolygon();
  1331.     n3f( N084);
  1332.     v3f( P084);
  1333.     n3f( N082);
  1334.     v3f( P082);
  1335.     n3f( N079);
  1336.     v3f( P079);
  1337.     endpolygon();
  1338. }
  1339.  
  1340. dolphin012()
  1341. {
  1342.     bgnpolygon();
  1343.     n3f( N058);
  1344.     v3f( P058);
  1345.     n3f( N059);
  1346.     v3f( P059);
  1347.     n3f( N067);
  1348.     v3f( P067);
  1349.     n3f( N066);
  1350.     v3f( P066);
  1351.     endpolygon();
  1352.     bgnpolygon();
  1353.     n3f( N059);
  1354.     v3f( P059);
  1355.     n3f( N052);
  1356.     v3f( P052);
  1357.     n3f( N060);
  1358.     v3f( P060);
  1359.     endpolygon();
  1360.     bgnpolygon();
  1361.     n3f( N059);
  1362.     v3f( P059);
  1363.     n3f( N060);
  1364.     v3f( P060);
  1365.     n3f( N067);
  1366.     v3f( P067);
  1367.     endpolygon();
  1368.     bgnpolygon();
  1369.     n3f( N058);
  1370.     v3f( P058);
  1371.     n3f( N066);
  1372.     v3f( P066);
  1373.     n3f( N065);
  1374.     v3f( P065);
  1375.     endpolygon();
  1376.     bgnpolygon();
  1377.     n3f( N058);
  1378.     v3f( P058);
  1379.     n3f( N065);
  1380.     v3f( P065);
  1381.     n3f( N057);
  1382.     v3f( P057);
  1383.     endpolygon();
  1384.     bgnpolygon();
  1385.     n3f( N056);
  1386.     v3f( P056);
  1387.     n3f( N057);
  1388.     v3f( P057);
  1389.     n3f( N065);
  1390.     v3f( P065);
  1391.     endpolygon();
  1392.     bgnpolygon();
  1393.     n3f( N056);
  1394.     v3f( P056);
  1395.     n3f( N065);
  1396.     v3f( P065);
  1397.     n3f( N006);
  1398.     v3f( P006);
  1399.     endpolygon();
  1400.     bgnpolygon();
  1401.     n3f( N056);
  1402.     v3f( P056);
  1403.     n3f( N006);
  1404.     v3f( P006);
  1405.     n3f( N063);
  1406.     v3f( P063);
  1407.     endpolygon();
  1408.     bgnpolygon();
  1409.     n3f( N056);
  1410.     v3f( P056);
  1411.     n3f( N063);
  1412.     v3f( P063);
  1413.     n3f( N055);
  1414.     v3f( P055);
  1415.     endpolygon();
  1416.     bgnpolygon();
  1417.     n3f( N054);
  1418.     v3f( P054);
  1419.     n3f( N062);
  1420.     v3f( P062);
  1421.     n3f( N005);
  1422.     v3f( P005);
  1423.     endpolygon();
  1424.     bgnpolygon();
  1425.     n3f( N054);
  1426.     v3f( P054);
  1427.     n3f( N005);
  1428.     v3f( P005);
  1429.     n3f( N053);
  1430.     v3f( P053);
  1431.     endpolygon();
  1432.     bgnpolygon();
  1433.     n3f( N052);
  1434.     v3f( P052);
  1435.     n3f( N053);
  1436.     v3f( P053);
  1437.     n3f( N005);
  1438.     v3f( P005);
  1439.     n3f( N060);
  1440.     v3f( P060);
  1441.     endpolygon();
  1442. }
  1443.  
  1444. dolphin013()
  1445. {
  1446.     bgnpolygon();
  1447.     n3f( N116);
  1448.     v3f( P116);
  1449.     n3f( N117);
  1450.     v3f( P117);
  1451.     n3f( N112);
  1452.     v3f( P112);
  1453.     n3f( N113);
  1454.     v3f( P113);
  1455.     endpolygon();
  1456.     bgnpolygon();
  1457.     n3f( N114);
  1458.     v3f( P114);
  1459.     n3f( N113);
  1460.     v3f( P113);
  1461.     n3f( N112);
  1462.     v3f( P112);
  1463.     n3f( N115);
  1464.     v3f( P115);
  1465.     endpolygon();
  1466.     bgnpolygon();
  1467.     n3f( N114);
  1468.     v3f( P114);
  1469.     n3f( N116);
  1470.     v3f( P116);
  1471.     n3f( N113);
  1472.     v3f( P113);
  1473.     endpolygon();
  1474.     bgnpolygon();
  1475.     n3f( N114);
  1476.     v3f( P114);
  1477.     n3f( N007);
  1478.     v3f( P007);
  1479.     n3f( N116);
  1480.     v3f( P116);
  1481.     endpolygon();
  1482.     bgnpolygon();
  1483.     n3f( N007);
  1484.     v3f( P007);
  1485.     n3f( N002);
  1486.     v3f( P002);
  1487.     n3f( N116);
  1488.     v3f( P116);
  1489.     endpolygon();
  1490.     lmbind(LMODEL,0);
  1491.     cpack(0xFF1E1E1E);
  1492.     bgnpolygon();
  1493.     v3f( P002);
  1494.     v3f( P007);
  1495.     v3f( P008);
  1496.     v3f( P099);
  1497.     endpolygon();
  1498.     bgnpolygon();
  1499.     v3f( P007);
  1500.     v3f( P114);
  1501.     v3f( P115);
  1502.     v3f( P008);
  1503.     endpolygon();
  1504.     lmbind(LMODEL,1);
  1505.     bgnpolygon();
  1506.     n3f( N117);
  1507.     v3f( P117);
  1508.     n3f( N099);
  1509.     v3f( P099);
  1510.     n3f( N008);
  1511.     v3f( P008);
  1512.     endpolygon();
  1513.     bgnpolygon();
  1514.     n3f( N117);
  1515.     v3f( P117);
  1516.     n3f( N008);
  1517.     v3f( P008);
  1518.     n3f( N112);
  1519.     v3f( P112);
  1520.     endpolygon();
  1521.     bgnpolygon();
  1522.     n3f( N112);
  1523.     v3f( P112);
  1524.     n3f( N008);
  1525.     v3f( P008);
  1526.     n3f( N115);
  1527.     v3f( P115);
  1528.     endpolygon();
  1529. }
  1530.  
  1531. dolphin014()
  1532. {
  1533.     bgnpolygon();
  1534.     n3f( N111);
  1535.     v3f( P111);
  1536.     n3f( N110);
  1537.     v3f( P110);
  1538.     n3f( N102);
  1539.     v3f( P102);
  1540.     n3f( N121);
  1541.     v3f( P121);
  1542.     endpolygon();
  1543.     bgnpolygon();
  1544.     n3f( N111);
  1545.     v3f( P111);
  1546.     n3f( N097);
  1547.     v3f( P097);
  1548.     n3f( N110);
  1549.     v3f( P110);
  1550.     endpolygon();
  1551.     bgnpolygon();
  1552.     n3f( N097);
  1553.     v3f( P097);
  1554.     n3f( N119);
  1555.     v3f( P119);
  1556.     n3f( N110);
  1557.     v3f( P110);
  1558.     endpolygon();
  1559.     bgnpolygon();
  1560.     n3f( N097);
  1561.     v3f( P097);
  1562.     n3f( N099);
  1563.     v3f( P099);
  1564.     n3f( N119);
  1565.     v3f( P119);
  1566.     endpolygon();
  1567.     bgnpolygon();
  1568.     n3f( N099);
  1569.     v3f( P099);
  1570.     n3f( N065);
  1571.     v3f( P065);
  1572.     n3f( N119);
  1573.     v3f( P119);
  1574.     endpolygon();
  1575.     bgnpolygon();
  1576.     n3f( N065);
  1577.     v3f( P065);
  1578.     n3f( N066);
  1579.     v3f( P066);
  1580.     n3f( N119);
  1581.     v3f( P119);
  1582.     endpolygon();
  1583.     lmbind(LMODEL,0);
  1584.     cpack(0xFF1E1E1E);
  1585.     bgnpolygon();
  1586.     v3f( P098);
  1587.     v3f( P097);
  1588.     v3f( P111);
  1589.     v3f( P121);
  1590.     endpolygon();
  1591.     bgnpolygon();
  1592.     v3f( P002);
  1593.     v3f( P099);
  1594.     v3f( P097);
  1595.     v3f( P098);
  1596.     endpolygon();
  1597.     lmbind(LMODEL,1);
  1598.     bgnpolygon();
  1599.     n3f( N110);
  1600.     v3f( P110);
  1601.     n3f( N119);
  1602.     v3f( P119);
  1603.     n3f( N118);
  1604.     v3f( P118);
  1605.     n3f( N102);
  1606.     v3f( P102);
  1607.     endpolygon();
  1608.     bgnpolygon();
  1609.     n3f( N119);
  1610.     v3f( P119);
  1611.     n3f( N066);
  1612.     v3f( P066);
  1613.     n3f( N067);
  1614.     v3f( P067);
  1615.     n3f( N118);
  1616.     v3f( P118);
  1617.     endpolygon();
  1618.     bgnpolygon();
  1619.     n3f( N067);
  1620.     v3f( P067);
  1621.     n3f( N060);
  1622.     v3f( P060);
  1623.     n3f( N002);
  1624.     v3f( P002);
  1625.     endpolygon();
  1626.     bgnpolygon();
  1627.     n3f( N067);
  1628.     v3f( P067);
  1629.     n3f( N002);
  1630.     v3f( P002);
  1631.     n3f( N118);
  1632.     v3f( P118);
  1633.     endpolygon();
  1634.     bgnpolygon();
  1635.     n3f( N118);
  1636.     v3f( P118);
  1637.     n3f( N002);
  1638.     v3f( P002);
  1639.     n3f( N098);
  1640.     v3f( P098);
  1641.     endpolygon();
  1642.     bgnpolygon();
  1643.     n3f( N118);
  1644.     v3f( P118);
  1645.     n3f( N098);
  1646.     v3f( P098);
  1647.     n3f( N102);
  1648.     v3f( P102);
  1649.     endpolygon();
  1650.     bgnpolygon();
  1651.     n3f( N102);
  1652.     v3f( P102);
  1653.     n3f( N098);
  1654.     v3f( P098);
  1655.     n3f( N121);
  1656.     v3f( P121);
  1657.     endpolygon();
  1658. }
  1659.  
  1660. dolphin015()
  1661. {
  1662.     bgnpolygon();
  1663.     n3f( N055);
  1664.     v3f( P055);
  1665.     n3f( N003);
  1666.     v3f( P003);
  1667.     n3f( N054);
  1668.     v3f( P054);
  1669.     endpolygon();
  1670.     bgnpolygon();
  1671.     n3f( N003);
  1672.     v3f( P003);
  1673.     n3f( N055);
  1674.     v3f( P055);
  1675.     n3f( N063);
  1676.     v3f( P063);
  1677.     endpolygon();
  1678.     bgnpolygon();
  1679.     n3f( N003);
  1680.     v3f( P003);
  1681.     n3f( N063);
  1682.     v3f( P063);
  1683.     n3f( N100);
  1684.     v3f( P100);
  1685.     endpolygon();
  1686.     bgnpolygon();
  1687.     n3f( N003);
  1688.     v3f( P003);
  1689.     n3f( N100);
  1690.     v3f( P100);
  1691.     n3f( N054);
  1692.     v3f( P054);
  1693.     endpolygon();
  1694.     bgnpolygon();
  1695.     n3f( N054);
  1696.     v3f( P054);
  1697.     n3f( N100);
  1698.     v3f( P100);
  1699.     n3f( N062);
  1700.     v3f( P062);
  1701.     endpolygon();
  1702.     bgnpolygon();
  1703.     n3f( N100);
  1704.     v3f( P100);
  1705.     n3f( N064);
  1706.     v3f( P064);
  1707.     n3f( N120);
  1708.     v3f( P120);
  1709.     endpolygon();
  1710.     bgnpolygon();
  1711.     n3f( N100);
  1712.     v3f( P100);
  1713.     n3f( N063);
  1714.     v3f( P063);
  1715.     n3f( N064);
  1716.     v3f( P064);
  1717.     endpolygon();
  1718.     bgnpolygon();
  1719.     n3f( N063);
  1720.     v3f( P063);
  1721.     n3f( N006);
  1722.     v3f( P006);
  1723.     n3f( N064);
  1724.     v3f( P064);
  1725.     endpolygon();
  1726.     bgnpolygon();
  1727.     n3f( N064);
  1728.     v3f( P064);
  1729.     n3f( N006);
  1730.     v3f( P006);
  1731.     n3f( N099);
  1732.     v3f( P099);
  1733.     endpolygon();
  1734.     bgnpolygon();
  1735.     n3f( N064);
  1736.     v3f( P064);
  1737.     n3f( N099);
  1738.     v3f( P099);
  1739.     n3f( N117);
  1740.     v3f( P117);
  1741.     endpolygon();
  1742.     bgnpolygon();
  1743.     n3f( N120);
  1744.     v3f( P120);
  1745.     n3f( N064);
  1746.     v3f( P064);
  1747.     n3f( N117);
  1748.     v3f( P117);
  1749.     n3f( N116);
  1750.     v3f( P116);
  1751.     endpolygon();
  1752.     bgnpolygon();
  1753.     n3f( N006);
  1754.     v3f( P006);
  1755.     n3f( N065);
  1756.     v3f( P065);
  1757.     n3f( N099);
  1758.     v3f( P099);
  1759.     endpolygon();
  1760.     bgnpolygon();
  1761.     n3f( N062);
  1762.     v3f( P062);
  1763.     n3f( N100);
  1764.     v3f( P100);
  1765.     n3f( N120);
  1766.     v3f( P120);
  1767.     endpolygon();
  1768.     bgnpolygon();
  1769.     n3f( N005);
  1770.     v3f( P005);
  1771.     n3f( N062);
  1772.     v3f( P062);
  1773.     n3f( N120);
  1774.     v3f( P120);
  1775.     endpolygon();
  1776.     bgnpolygon();
  1777.     n3f( N005);
  1778.     v3f( P005);
  1779.     n3f( N120);
  1780.     v3f( P120);
  1781.     n3f( N002);
  1782.     v3f( P002);
  1783.     endpolygon();
  1784.     bgnpolygon();
  1785.     n3f( N002);
  1786.     v3f( P002);
  1787.     n3f( N120);
  1788.     v3f( P120);
  1789.     n3f( N116);
  1790.     v3f( P116);
  1791.     endpolygon();
  1792.     bgnpolygon();
  1793.     n3f( N060);
  1794.     v3f( P060);
  1795.     n3f( N005);
  1796.     v3f( P005);
  1797.     n3f( N002);
  1798.     v3f( P002);
  1799.     endpolygon();
  1800. }
  1801.  
  1802. dolphin016()
  1803. {
  1804.     zbuffer(0);
  1805.     lmbind(LMODEL,0);
  1806.     cpack(0xFF1E1E1E);
  1807.     bgnpolygon();
  1808.     v3f( P123);
  1809.     v3f( P124);
  1810.     v3f( P125);
  1811.     v3f( P126);
  1812.     v3f( P127);
  1813.     v3f( P128);
  1814.     endpolygon();
  1815.     bgnpolygon();
  1816.     v3f( P129);
  1817.     v3f( P130);
  1818.     v3f( P131);
  1819.     v3f( P132);
  1820.     v3f( P133);
  1821.     v3f( P134);
  1822.     endpolygon();
  1823.     bgnpolygon();
  1824.     v3f( P103);
  1825.     v3f( P105);
  1826.     v3f( P108);
  1827.     endpolygon();
  1828.     lmbind(LMODEL,1);
  1829.     zbuffer(1);
  1830. }
  1831.  
  1832. float seg0;
  1833. float seg1;
  1834. float seg2;
  1835. float seg3;
  1836. float seg4;
  1837. float seg5;
  1838. float seg6;
  1839. float seg7;
  1840.  
  1841. float pitch;
  1842.  
  1843. draw_dolphin(struct fish *pfish)
  1844. {
  1845.     float thrash,chomp;
  1846.  
  1847.     pfish->htail = (int)(pfish->htail - (int)(10. * pfish->v)) % 360;
  1848.  
  1849.     thrash = 70. * pfish->v;
  1850.  
  1851.     seg0 = 1.0 * thrash * fsin((pfish->htail      ) * RRAD);
  1852.     seg3 = 1.0 * thrash * fsin((pfish->htail      ) * RRAD);
  1853.     seg1 = 2.0 * thrash * fsin((pfish->htail +  4.) * RRAD);
  1854.     seg2 = 3.0 * thrash * fsin((pfish->htail +  6.) * RRAD);
  1855.     seg4 = 4.0 * thrash * fsin((pfish->htail + 10.) * RRAD);
  1856.     seg5 = 4.5 * thrash * fsin((pfish->htail + 15.) * RRAD);
  1857.     seg6 = 5.0 * thrash * fsin((pfish->htail + 20.) * RRAD);
  1858.     seg7 = 6.0 * thrash * fsin((pfish->htail + 30.) * RRAD);
  1859.  
  1860.     pitch = pfish->v * fsin((pfish->htail + 180.) * RRAD);
  1861.  
  1862.     if(pfish->v > 2.0) chomp = - (pfish->v - 2.0) * 200.0;
  1863.     chomp = 100.0;
  1864.  
  1865.     P012[1] = iP012[1] + seg5;
  1866.     P013[1] = iP013[1] + seg5;
  1867.     P014[1] = iP014[1] + seg5;
  1868.     P015[1] = iP015[1] + seg5;
  1869.     P016[1] = iP016[1] + seg5;
  1870.     P017[1] = iP017[1] + seg5;
  1871.     P018[1] = iP018[1] + seg5;
  1872.     P019[1] = iP019[1] + seg5;
  1873.  
  1874.     P020[1] = iP020[1] + seg4;
  1875.     P021[1] = iP021[1] + seg4;
  1876.     P022[1] = iP022[1] + seg4;
  1877.     P023[1] = iP023[1] + seg4;
  1878.     P024[1] = iP024[1] + seg4;
  1879.     P025[1] = iP025[1] + seg4;
  1880.     P026[1] = iP026[1] + seg4;
  1881.     P027[1] = iP027[1] + seg4;
  1882.  
  1883.     P028[1] = iP028[1] + seg2;
  1884.     P029[1] = iP029[1] + seg2;
  1885.     P030[1] = iP030[1] + seg2;
  1886.     P031[1] = iP031[1] + seg2;
  1887.     P032[1] = iP032[1] + seg2;
  1888.     P033[1] = iP033[1] + seg2;
  1889.     P034[1] = iP034[1] + seg2;
  1890.     P035[1] = iP035[1] + seg2;
  1891.  
  1892.     P036[1] = iP036[1] + seg1;
  1893.     P037[1] = iP037[1] + seg1;
  1894.     P038[1] = iP038[1] + seg1;
  1895.     P039[1] = iP039[1] + seg1;
  1896.     P040[1] = iP040[1] + seg1;
  1897.     P041[1] = iP041[1] + seg1;
  1898.     P042[1] = iP042[1] + seg1;
  1899.     P043[1] = iP043[1] + seg1;
  1900.  
  1901.     P044[1] = iP044[1] + seg0;
  1902.     P045[1] = iP045[1] + seg0;
  1903.     P046[1] = iP046[1] + seg0;
  1904.     P047[1] = iP047[1] + seg0;
  1905.     P048[1] = iP048[1] + seg0;
  1906.     P049[1] = iP049[1] + seg0;
  1907.     P050[1] = iP050[1] + seg0;
  1908.     P051[1] = iP051[1] + seg0;
  1909.  
  1910.     P009[1] = iP009[1] + seg6;
  1911.     P010[1] = iP010[1] + seg6;
  1912.     P075[1] = iP075[1] + seg6;
  1913.     P076[1] = iP076[1] + seg6;
  1914.  
  1915.     P001[1] = iP001[1] + seg7;
  1916.     P011[1] = iP011[1] + seg7;
  1917.     P068[1] = iP068[1] + seg7;
  1918.     P069[1] = iP069[1] + seg7;
  1919.     P070[1] = iP070[1] + seg7;
  1920.     P071[1] = iP071[1] + seg7;
  1921.     P072[1] = iP072[1] + seg7;
  1922.     P073[1] = iP073[1] + seg7;
  1923.     P074[1] = iP074[1] + seg7;
  1924.  
  1925.     P091[1] = iP091[1] + seg3;
  1926.     P092[1] = iP092[1] + seg3;
  1927.     P093[1] = iP093[1] + seg3;
  1928.     P094[1] = iP094[1] + seg3;
  1929.     P095[1] = iP095[1] + seg3;
  1930.     P122[1] = iP122[1] + seg3 * 1.5;
  1931.  
  1932.     P097[1] = iP097[1] + chomp;
  1933.     P098[1] = iP098[1] + chomp;
  1934.     P102[1] = iP102[1] + chomp;
  1935.     P110[1] = iP110[1] + chomp;
  1936.     P111[1] = iP111[1] + chomp;
  1937.     P121[1] = iP121[1] + chomp;
  1938.     P118[1] = iP118[1] + chomp;
  1939.     P119[1] = iP119[1] + chomp;
  1940.  
  1941.     pushmatrix();
  1942.  
  1943.     rot(pitch,'x');
  1944.  
  1945.     translate(0.0,0.0,7000.);
  1946.  
  1947.     rot(180.,'y');
  1948.  
  1949.     backface(1);
  1950.     dolphin014();                                               
  1951.     dolphin010();                                               
  1952.     dolphin009();                                               
  1953.     dolphin012();                                               
  1954.     dolphin013();                                               
  1955.     dolphin006();                                               
  1956.     dolphin002();                                               
  1957.     dolphin001();                                               
  1958.     dolphin003();                                               
  1959.     dolphin015();                                               
  1960.     dolphin004();                                               
  1961.     dolphin005();                                               
  1962.     dolphin007();                                               
  1963.     dolphin008();                                               
  1964.     dolphin011(); 
  1965.     dolphin016();                                               
  1966.     backface(0);
  1967.     popmatrix();                                              
  1968. }
  1969.